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SET UP DEVICE REGS FOR 1/0 
; ISR PC ,SUIORG S/R CALL 


ERA ESHIRRARE RTE SON PS Oot 


Bp bs be De fh = be -0 ho Bs b+ bs be = b- B b  Goo em Fat fe fs foe 








000020 SUIORG: BIT T UP CYL/HEAD/SECT? 
Q PO 
1 e | 
1444 | 1 MOV 
1445 SWAB CT BIT POSITION 
1446 116716 172270 MOVB 44 (SP) iN SECT 8 





' 
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’ (RY) : come 
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sSET WAITING FLAG 
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;JSR RS,BADSEC 


INES 






;"BROSEC” FUNCTION ROUTINE 
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spnongy Sage rears 17% Function 
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~ A ~ 
$3 
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; ISSUE READ DATA 
i} ORIVE BUSY 







Ow TO RUN 
sy XFER COMPLETE 
z]0 ERRORS OCCUR 
YES, GET NEXT SECTOR 


;CAN NOT READ LAST TRACK 


ta, DUT BUPFER FOR MSG 
1 TRI 5 ascr 
sPRINT CARTRIDGE 8 


ore 
fet . 














;FLAG NO BAD-SECTORS 






NEXT WORD OF DATA 


SOR OF ASCII STORAGE 
; AND MAKE a 


ce uP" 
Pa IRA FOR DATA 








Rao INTERRUPT TYPE 176 FUNCTION ROUTINES 


BOO 
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o 





ye 
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ee 

o 

| om] 
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e 


= 
ee 


mm ao 
aa 
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SFO Te lta RAE” 
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'GET REL AOOR FOR DATA 





;CONVERT SECTOR TO ASCII 


| PRS ACES 
; ag RDY FOR PRINTING 
. ANY BAD SEC FOUND 





sPRINT ONE LINE 


‘SHOULD PRINT HEADING 


YES 
{PRINT HEADING 


1+: lat SEC FOUND 


;YES, PRINT ONE LINE 


;PRINT END OF BAD SEC 


;PRINT “NONE” 


sBROGESS TERMINATION 


— a EE ED EN ce 


DTRLAAPLL  RKOG INTERRUPT TYPE 170 FUNCTION, ROUTINES 
; SUBROUTINE TO ZERO BUFFER USED TO CONTAIN ASCII OF BAD SECTOR INFORMATION 
ELRCOD: MOV #33. ,RO 





KO3 
MACYIL 27(732) 24-SEP-76 14:11 PAGE 10 SEQ 003 
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g 
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THIS 2ND INTERRUPT 


Ne *SeLECT ORIVE 
re OI & ATN BITS 


;FLAG NEED DRIVE CLR 
NE et AVAILABLE? 


Bat Cae 
fe ath 
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ATA BITS 


templet TO SET ATA? 
; D 
CK FOR ATA 


i me Fon 3h | 
an a FE cor 
iN, TESTE ome Fon ERnons 


ives, coe NEED DRIVE CLR 


;FLAG NEED DRIVE CLR 
sFLAG NO ERRORS EXPECTED 







rt ARRIVE 











tRESET WAITING FOR 170 TERM 


;SHOULD DO A DRIVE CLR 


LEP ae REE TE FO 
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I 
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dentenissaatooiaisass 
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SERVICE RDHO COMMAND 








MACY11 27(732) 24-SEP-76 14:11 PAGE 10-1 ‘SEQ 0038 
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coe ND Coles 
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i ; 7 172054 
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171600 
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e Cal 


YES, GET HEROER On DATA 
a Wee 


;GET 2@ND HEADER WORD 
;LET MPG STORE IT 


TET fee Stone IT 


;COUNT NR BYTES READ 








‘SHOULD I GET MORE HEADERS 
SCAVE STORAGE ADDR 
sYES 


;DETERMINE WHICH ERROR SHOULD BE RETRIED 


CKRTRY: TST 
BNE 

42S: 

44S: 

46S: 

SOS: 





tis 
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SPECIFIED? 





AbD 1°70 DCK COUNT 
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DODO owmnMmonma 
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tee — ee Bs be eh ha ae ee 
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R 
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is to Enton Exit 


; CORON ATEMENT IN EFFECT’ 
HA WORD MODE? 


LRT Bmom 


e INV BIT PATTERN ERR MSG ADR 
1F10n Too BIG? 
ce T_ POSITION ERR MSG AOR 
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1 
1 
1 
i 
i 
1 
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;JSR PC,DOCORR 
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icone Jon WITHIN USEh'S Bata? 
iY 11° poner ECC ERROR CNT 
: H a! a Y-100$) 
OTL MTTHE 

a se OF PAIR 


R4_AGAIN 
TA TO ? 


N-1 
WAIT FLG & EXIT 
go ti 
0 INT Exit 


S/R CALL 


sGET DATA’S ABS STARTING AOR 
ADO DATA DISPL INTO IT 
; RUNN UNDER MEM MGMNT? 
iT MAP USED? 
UPPER 
iT. , 


yd 












Ts 

T$1S-13 

IN a BITS16-13 
THAT IS x4 






INAL 





;MERGE IN ORIGINAL OFFSET 
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wee ed ost Seek Daal Dee! Sort ot 7, 2S. 
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Acai 


Yr 4 STUFF 
sSET PAGE 4 TO USER’S ARREA 


Pace 


iRter PAGE 4’S REGS 
sEXIT IN-LINE 
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nee EE ——— 
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. 
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;CHECK IF DEVICE IS BUSY AND WAIT IF IT IS an 


S/R CALL 
600180 fos: 
a : 
$ T 
71; : IOT, (R3) 
: T TERM , OF LGWD 
: fmm 
: TAD, 40S 
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ie 
te 











Se SSSe SF Se SCF SESs SE SE SECs 
7 i 
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be oRt INT ROUT OR on 
sEXIT IN-LINE 


PROCESS TERMINATION OF PREVIOUS 1/0 FUNCTION 
;JSR PC, PROCTH S/R CALL 
;R3 = PROG TABLE AOR 
;DESTROYS RO 
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2 


Ff 
T NEGATIVE? (Y,Me108) 
neva CNT FROM INITIAL CNT 


:STORE @ OF ACTUALLY XFERRED 





b+ & > R= hb b— B= B= b= © B= b= = BH be Be P= b= Fo Be 
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seeqe@ssese 
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20s: ‘ 
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beter oF on 
40 TERMINATION 


INT VECTOR 
ORE Rl & Re 


T oe POINT 
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Ril & Re 


;EXIT IN-LINE 

















ru ie 


;EXIT IN-LINE 


IF NOT SAME 


Bf hone 
; 





{Stone FLA 
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IT IN-LINE 
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ak ¢4 44 + 
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cee 


sSTORE CURR STATUS 
;STORE ADR OF CURR STATUS 


‘one ROR OF LAST INT STATUS 


ner TLE ane 


PRINT ING INHIBITED? 


BT eT 


SPRINT THe SAPTER ISSUING 1/0" MSC 


;GET START ADR OF ERROR MSG 


ep wr 


:Y,N- 


igtone sc LGM 
$ INVALID UNIT 8 MSG OR HIGHER? 


GET ROR OF CODE AREA IN ERR MSG 
;SET UP ADR OF ERROR CODE TBL 
;SET UP ADR OF STORED DEV REG’S 











PRINT FLAG 
N ISSUED? 
THE “BEFORE ISSUING I/0” MSG 



















BYTE 





IN MSG? 


N 
’ 


‘ft 
moe RINT BITS 


ss 


IN MSG 
0 MSG 








SECT VALUES 





IN DEV REG BYTE? 


ENTRY 


T SET IN DEV REG BYTE? 











OF 0 = AN ERROR CONDITION? 


ERROR BITS MSG 





Pa 


TH 
i 
IN 
? 
TO_NXT DEV REG WORD? 


T 


I. 
NXT BYTE IN DEV REG WORD? 


T 

T 
N- 

TO NXT 
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;DISPLAY DEVICE REG’S 
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S-Q omg a ered ee HG eG wed wed ed oo Ee 


Mme SuerOUTINES FOR RKDS FUNCTION ROUT 
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Pil 
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DTROALPLL SuarouT ines 
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CTHEN a 
sRESTORE RS & RY 
sEXIT IN-LINE 





SEQ 0047 








;ERROR MESSAGE CODE TRBLE 


1376 = GD 10 next DEVICE RECISTER BYTE 


{BYTE.O.CONTAINS FLAG BITS & I.0. NAME LENGTH 






| A n ONLY ERROR T MASK + 1.0. NAME 
: ies 20 eo ea 


‘BYTE 1 IS THE BIT MASK 
‘BYTES 2 THRU ? ARE THE BIT’S ASCII I.D. 
















“ FA sRPCS1 - BYTE 1 
<005>< aera 
«00% <010> /CTO/ 
Pree Fr 
‘ 
< 
< 
< 
< 
<004> <010> ANRL/ sRPOS - BYTE 1 
ie sRPDS - BYTE 0 
< 
‘ 
< (O10) 
;RPERI - BYTE 1 








NAINDEC-11-DTREA-A 
“ait Bi 


4 | 


2218 





eel2 














is Fa te Fionn 





al 
041S22 








iB 


as 


<00S>< 
0 








(005> «004 /IDRE/ 


(004) <002> /COE/ 
><001> AHVRC/ 
> <200) /BSE/ 
<004> < 100) /ECH/ 
(005> <040> /DTYE/ 


(005) <020> /FMTE/ 
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> /NXF / 


Sa Se RI” 
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;RPER1 - BYTE O 


;RPAS - BYTE 0 


; TABLE TERMINATOR 


3 | adie nt Mt Pee ae EE iee Aetiniie MPG KON 27(732) 24-SEP-76 14:11 PAGE lé SEQ 0049 
-SBTTL SUBROUTINES = RKOG DEVICE ROUTINE 














;SAVE REGISTERS RO THRU RS 


;JSR RO, SAVREG S/R CALL 
; DIDLYe SAVREG: ae SAVE RO THRU RS 
> 10546 ’ = (SP) 
1B Ba 
: Bl a PC EXIT IN-LINE 





;JSR RO,RESREG S/R CALL 


OSE " nek RESREG: (SP)4 ;RESTORE RS THRU RO 
a: 12’ 012604 (SP)+, RY 
3 14° 01 (SP)+’ 

4: i , (oF), 

Se (5P)+! 

< , RO sEXIT IN-LINE 





;SET PROGRAM’S PROG TABLE ADR IN R3 & RPCS1 ADR IN RY 






;JSR PC, SUPTAD S/R CALL 
12324" SUPTAD: HWY PC SET UP LOCATION ZERO ADR 
Giese OE 
Be fe koe 3 re mele age 
Bie Boney? RTS GET OEY REG 
sSTORE DEVICE’S STATUS REGISTERS 
gett te sn 


se Thos Forni Re 






Pa ese 


G 
INISAED THIS GROUP OF REGS? 


Y 
-SET UP NEXT LOOP CNT 


STSTAT: 
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etl 
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be ee eee 
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S oe 
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z 
3 
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7; 


;DISPLAY DEVICE 1.0. & UNIT 8 
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5 i uti 
ATUS FOR INTERRUPT? 





S/R CALL 


a5 Met 19 iN NORMAL MSG LNGTH 


ve hh 8? 
8 TO DECIMAL ASCII 


oy saie TO 1ST TWO DIGITS 
; MSG LNGTH 
CONVERT BINARY’ TO ASCII 


;GO ISSUE UNIT 8 MSG 


sEXIT IN-LINE 







TO DISPLAY 





TH BY 1 REG 
N-20$) 


f 





we TO 3 REGS 
Y,N-eS$) 


ere 
en 
at rik 


FIELD IN MSG 











te 
Xa 
ee 
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RE 
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. DATA PNTR 
0 GO? 


CNT FROM STACK 


UP ADR OF REG NAMES IN ASCII 


Tes 
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cy 
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F 
ii 
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Rel ROR OF STATUS DATA 
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sEXIT IN-LINE 
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Re 
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; TAILOR STATUS MSG & PRINT IT 
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- 
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3 
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;DISPLAY CYL/HEAD/SECT WORDS’ VALUES 









;JSR PC, PRTIWD S/R CALL 

‘DESTROYS RO,R1,R2 
ee vent Y9eSecue to ascrt 
ie if GET & CONVERT HEAD VALUE 
HOV ec Be -GET & CONVERT SECT VALUE 
ise teste -PRINT MSG WITH THEIR VALUES 
2 pee 
RIS => EXIT IN-LINE 


; ISSUE MSG TO LIST DEVICE SUBROUTINE 





- JSR PRINT CALL 
> . WORD rSteDA REL FOR OF SG ; 
— MOR eeT PAT DEY DEDICATED’ ) 
°R3 = PROG TBL ADR 
°R4Y = FLAGWORD -- IF NEGATIVE, USE CMND MODE PRINT 
‘DESTROYS RO,R1,R2 

MOV RS. RO -GET MSG ADR & MAKE IT ABS 

my eisal 

fey ASE Een ROOe PRINT? 

BPL -¥.N-40S 

ob <SET UP LINK INFO ADR 

ry 

NOY 

JSR 

JSR 3s ICLIST - ISSUE MSG SPECIFIED 

.WORD  XXXX 

.WORD  XXXX 

“ioe cere sISSUE A <CR> & <LF> 

BR PRTEX :GO TO EXIT 

MOV RO, : STORE NSG"S ABS ADR 

MOV Ri: -STORE ITS BYTE CNT 


a 
SB 


;GO TO MPG TO ISSUE THE MSG 
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~SBTTL FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES 
: PROGRAM TABLE FORMAT 
PTLGTH= 162. ;PROGRAMN TABLE LENGTH - NON MEM MGMNT VERSION OF MPG 
;(PTLGTHs 212. ;PROGRAM TABLE LENGTH - MEM MGMNT VERSION OF MPG) 
PFLGWD= +0. 





PFWADR= +4. 
PASCIN= +6. ;PROGRAN’S NUMBER IN ASCII - 1 WORD 

PNAME= +6. ;PROGRAM’S NAME IN ASCII - 6 BYTES 

PROIOR= 414. ;ADORESS OF READ 1/0 AREA - 1 WORD 

PURIOR= +16. ;ADORESS OF WRITE 1/0 AREA - 1 WORD 

PSRCST= +18. ;SOURCE STATEMENTS START ADORESS - 1 WORD 

POBJST= +20. ;OBJECT CODE START ADDRESS - 1 WORD 

PLNGTHs 422. ;PROG AREA LENGTH (OBJ END MINUS PROG TBL START) - 1 WORD 
PTOCNTs +24. ;170 TIMEOUT COUNT - 1 WORD 
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PMOLCO= +26. 
POPNTR= +28. 
PCURDVs +29. 


;DEV ROUT MODEL 8 CODE - 1 WORD 
;CURRENT DEVICE NUMBER POINTER - 1 BYTE 
;CURRENT DEVICE #8 -.1 BYTE 

;sDEVICE NUMBERS - 16 BYTES 

;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - | WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
;USER PROGRAM TEMPORARY STORAGE - 1 WORD 


;NUMBER OF BYTES TO TRANSFER ON MOVE (NBR) - 1 WORD 
;DATA SOURCE ROORESS ON MOVE (SRC) - 1 WORD 

;DATA DESTINATION ADORESS ON MOVE (DST) - 1 WORD 
38 OF WORDS (X 2) SAVED OFF STACK - | WORD 


;STACK WORDS STORAGE AREA - 30 WORDS 


;USER’S RO THRU RS REGISTERS STORAGE AREA - & WORDS 


;USER’S CURRENT PROGRAM COUNTER - 1 WORD 
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;FOLLOWING ENTRIES (PROIOX THRU PUBMAP) ARE ONLY IN MEM MGMNT VERSION 


PROIOX= +160. ;16/22 BIT ABSOLUTE ADDRESS OF READ 1/0 AREA - 2 WORDS) 

PROIOV= +164. ;18 BIT VIRTUAL ADORESS OF READ 1/0 AREA - 2 WORDS) 

PWRIOX= +168. ; 18/22 BIT ABSOLUTE ADDRESS OF WRITE 1/0 AREA - 2 WORDS) 

PURIOV= +172. ;18 BIT VIRTUAL ADDRESS OF WRITE 1/0 AREA - 2 WORDS) 

; (PUPARS= +176. ;STORAGE AREA FOR USER’S PAR’S 0 THRU 7 - 8 WORDS) 

; (PUPORS= +192. ;STORAGE AREA FOR USER’S POR’S 0 THRU 7 - 8 WORDS) 

;(PUBMAP= +208. ;1ST UNIBUS MAP REG 8 AND 8 OF REGS USED - 1 WORD) 
;END OF MEM MGMNT ONLY ENTRIES 

PTSIZE= +160. ;PROGRAM TABLE SIZE IN BYTES - 1 WORD - NON MEM MGMNT 

;(PTSIZE= +210. ;PROGRAM TABLE SIZE IN BYTES - 1 WORD - MEM MGMNT VERSION) 

PTEND= +162. ;END OF PROGRAM TABLE - NON MEM MGMNT VERSION 

;(PTEND= +212. ;END OF PROGRAM TABLE - MEM NGMNT VERSION) 
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oo003e 
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000036 
000040 
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oooo44 
000046 
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000056 
000060 


, DEVICE ROUTINE TABLE 
ORTLTH= 78.  ; DEVICE ROUTINE TABLE LENGTH 

; 

Bevrsz= +0.  _ ; DEVICE ROUTINE SIZE IN BYTES - 1 WORD 

DEVFWO= +2. _ ; DEVICE ROUTINE FLAGMORD - 1 WORD 

DEVIWI= #4.  ;DEVICE INTERFACE WORD 8 1 - 1 WORD 

DEVIN2= #6. ;DEVICE INTERFACE WORD 8 2 - 1 WORD 

DEVING= +8. _;DEVICE INTERFACE WORD 8 3 - 1 WORD 

DEVIWM= +10.  ;DEVICE INTERFACE WORD 8 4 - 1 WORD 

DEVINS= +12.  ;DEVICE INTERFACE WORD # S - 1 WORD 

DEVIWb= +14.  ;DEVICE INTERFACE WORD 8 6 - 1 WORD 

DEVIN7= +16.  ;DEVICE INTERFACE WORD 8 7 - 1 WORD (SIZE) 

DEVING= +18.  ;DEVICE INTERFACE WORD 8 @ - 1 WORD (ERR) 

DEVORA= +20. DEVICE REGISTERS ADORESS - 1 WORD 

DEVIVA= +22.  ;DEVICE INTERRUPT VECTOR = 1 WORD 

DEVRPS= +24.  ;DEVICE READ PROCESSOR STATUS WORD (BUS REQ) - 1 WORD 
DEVWPS= +26.  ;DEVICE WRITE PROC STATUS WORD (BUS REQ) - 1 WORD 
DHKPAD= +28.  ; DEVICE ROUT HOUSEKEEPING ROUT REL ENTRY ADR - 1 WORD 
DERPAD= +30.  ;DEVICE ROUT REPORT ROUT REL ENTRY ADR - 1 WORD 
DKILAD= +32.  ;DEVICE ROUT KILL ROUTINE REL ENTRY AOR - 1 WORD 
DECTAD= +34. DEVICE ROUT ERROR COUNTER REL ADR - 1 WORD 

DTOEAD= +36.  ;DEVICE ROUT TIMEOUT ERR ROUT REL ENTRY ADR - 1 WORD 
DEVIOB= +38.  ;DEVICE 1/0 BUSY BRANCH (C1ORSY) = 1 WORD 
DEVDER= +40.  ;DEVICE ERROR BRANCH ADORESS (CUPGER) - 1 WORD 
DVUPRTs +42.  ;USER MODE PRINT BRANCH ADORESS (ULIST) - 1 WORD 
DVCPRT= +44.  ;CMND MODE PRINT BRANCH ADDRESS (CLIST) - 1 WORD 
DEVBTAs +46.  ;CONVERT BINARY TO ASCII BR AOR (BINASC) - 1 WORD 
DVBTDAs +48.  ;CONVERT BINARY TO DECIMAL ASCII BR ADR (BTASLZ) - 1 WORD 
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ROUTINE FOR MPG 
ICE ROUTINE TABLES 
OVPOTA= +50. § ; CONVERT PACKED DECIMAL TO ASCII BR AOR (DECASC) - 1 WORD 
OVSFWD= +S2. §  ; MPG SYSTEM FLAGWORD ADORESS (CSYSFW) - 1 WORD 
OVSVEC= +54.- ;SET INTERRUPT VECTOR BR ADR (SETVEC) - 1 WORD 
DVCVEC= 456. § ; CLEAR INTERRUPT VECTOR BR ADR (CLRVEC) - 1 WORD 
OVTVECs +58. §; TEST INTERRUPT VECTOR BR ADR (TSTVEC) - 1 WORD 
DVRINT= +60. § ;RETURN FROM INTERRUPT BR ADR (RTNINT) - 1 WORD 
DVGETB= 462. §;GET DATA BYTE BR ADR (GETBYT) - 1 WORD 
DVPUTB= +64. § ;PUT DATA BYTE BR ADR (PUTBYT) - 1 WORD 
DEVSTP= +66. ;DEVICE ROUT REL SYMBOL TABLE POINTER - 1 WORD 
DEVETP= +68.  ;DEVICE ROUT REL ENTRY TABLE POINTER - 1 WORD 
DVPTEP= +70.  ; PACK TABLE EXTEN. REL POINTER - 1 WORD 
DVVTEP= +72. ; VECTOR TABLE EXTEN. REL POINTER - 1 WORD 
DVCTEPs #74. § ; COMPILER TBL EXTEN. REL POINTER - 1 WORD 
DVINSP= +76. §_ ;DEVICE INTERFACE WORD SYMBOL TBL REL POINTER - 1 WORD 
ORTEND= +78.  ;END OF DEVICE ROUTINE TABLE 
.END 
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